PadeApproximant[-Log[x], {x, 1, n}